--[[
    编码: WMS-04-14
    名称: 查询面板-巷道变化后
    作者：HAN  
    日期：2025-1-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： AisleChange

    功能:

        需要设置 巷道、排下拉列表

    更改记录:

--]]

json  = require ("json")
mobox = require ("OILua_JavelinExt")
m3 = require("oi_base_mobox")

function AisleChange( strLuaDEID )
    local nRet, strRetInfo
    local parameter = {}
    local attrs

    -- 获取查询面板里的输入的仓库编码属性
    nRet, parameter = m3.GetSysInputParameter( strLuaDEID ) 
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "m3.GetSysInputParameter 失败! "..attrs ) end 

    attrs = m3.KeyValueAttrsToObjAttr( parameter )
    local aisle = lua.Get_NumAttrValue( attrs.Aisle ) 
    local area_code = lua.Get_StrAttrValue( attrs.S_AREA_CODE ) 

    if ( aisle == 0 ) then return end
    -- 查询货位里的巷道库区编码
    
    local strCondition
    local strOrder = 'N_ROW'
    
    strCondition = "S_AREA_CODE = '"..area_code.."' AND N_AISLE = "..aisle
    nRet, strRetInfo = mobox.groupDataObjAttr( strLuaDEID, "Location", strCondition, "N_ROW", strOrder )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "无法从【货位】中获取信息！"..strRetInfo ) end 

    local groups = json.decode( strRetInfo ) 
    local n
    local row_choice_items = {}
    for n = 1, #groups do
        table.insert( row_choice_items, groups[n].value )
    end

    local value = {}
    if ( #groups == 0 ) then
        value = {
            {attr = "Row", value = ""}
        }
    else
        value = {
            { attr = "Row", value = "", choice_list = row_choice_items }
        }        
    end

    local action = {
        {
            action_type = "set_dlg_attr",
            value = value
        },
        {
            action_type = "click_query_button",
            value = ""
        }
    }
    nRet, strRetInfo = mobox.setAction( strLuaDEID, lua.table2str( action )  )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo..' action = '..strAction ) end 
end